home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_4049.txt < prev    next >
Text File  |  1990-08-14  |  11KB  |  460 lines
  1. -- card: 4049 from stack: in
  2. -- bmap block id: 4448
  3. -- flags: 4000
  4. -- background id: 2609
  5. -- name: Mac School® Shell
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global interactiveDemo
  9.   installMenuBar 1000,1001,1002
  10.   put true into interactiveDemo
  11. end openCard
  12.  
  13. on doMenu menuItem
  14.   if menuItem contains "About" then
  15.     lock screen
  16.     restoreMenuBar
  17.     visual iris open
  18.     go to card short name of me of background "About"
  19.     unlock screen with iris open
  20.   else if menuItem is "Home" then
  21.     restoreMenuBar
  22.     visual zoom close
  23.     go home
  24.   else if menuItem is "Rebuild Shell‚Ķ" then
  25.     rebuildShell
  26.   else if menuItem is "Quit" then
  27.     restoreMenuBar
  28.     visual zoom close
  29.     go to card "Demo Shell"
  30.   end if
  31. end doMenu
  32.  
  33. on mouseUp
  34.   if name of target contains "button" then
  35.     lock screen
  36.     if the optionKey is down then
  37.       restoreMenuBar false
  38.       go to background short name of target
  39.       if the result is "No such card" then
  40.         installMenuBar 1000,1001,1002
  41.         beep
  42.       else unlock screen with zoom open
  43.     else
  44.       restoreMenuBar
  45.       go to card short name of target in background "About"
  46.       unlock screen with iris open
  47.     end if
  48.   end if
  49. end mouseUp
  50.  
  51. on rebuildShell
  52.   lock screen
  53.   set the cursor to watch
  54.   repeat with index = 1 to 24
  55.     hide card button index
  56.   end repeat
  57.   unlock screen
  58.   if the optionKey is down then
  59.     put "School Setup" & return & "Student Details" & return & "Course Details" & return & "Teacher Details" & return & "CSL Scheduler" & return & "Report Cards" & return & "CSL Attendance" & return & "CSL Library" & return & "Report Manager" & return & "CSL Marks" & return & "Comment Editor" & return & "Year End" & return & "Next Year Prep" & return & "CSL Backup" & return & "ASCII Transfer" & return & "CSL Scanning" & return & "Query" into temp
  60.   else
  61.     put empty into temp
  62.     repeat with index = 1 to 24
  63.       get short name of card button index
  64.       if "button" is not in it then put it into line the number of lines of temp + 1 of temp
  65.     end repeat
  66.     repeat with i = the number of lines of temp down to 2
  67.       repeat with j = 1 to i - 1
  68.         if line j of temp > line j + 1 of temp then
  69.           put line j of temp into k
  70.           put line j + 1 of temp into line j of temp
  71.           put k into line j + 1 of temp
  72.         end if
  73.       end repeat
  74.     end repeat
  75.   end if
  76.   repeat with index = 1 to the number of lines of temp
  77.     set name of card button index to line index of temp
  78.     set icon of card button index to line index of temp
  79.     show card button index
  80.   end repeat
  81. end rebuildShell
  82.  
  83.  
  84. -- part 1 (button)
  85. -- low flags: 00
  86. -- high flags: A004
  87. -- rect: left=10 top=81 right=129 bottom=86
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 5016 / 5016
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: School Setup
  96.  
  97.  
  98. -- part 2 (button)
  99. -- low flags: 00
  100. -- high flags: A004
  101. -- rect: left=93 top=81 right=129 bottom=169
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 5017 / 5017
  104. -- text alignment: 1
  105. -- font id: 0
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: Student Details
  110.  
  111.  
  112. -- part 3 (button)
  113. -- low flags: 00
  114. -- high flags: A004
  115. -- rect: left=176 top=81 right=129 bottom=252
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 5005 / 5005
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Course Details
  124.  
  125.  
  126. -- part 4 (button)
  127. -- low flags: 00
  128. -- high flags: A004
  129. -- rect: left=259 top=81 right=129 bottom=335
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 5018 / 5018
  132. -- text alignment: 1
  133. -- font id: 0
  134. -- text size: 12
  135. -- style flags: 0
  136. -- line height: 16
  137. -- part name: Teacher Details
  138.  
  139.  
  140. -- part 5 (button)
  141. -- low flags: 00
  142. -- high flags: A004
  143. -- rect: left=342 top=81 right=129 bottom=418
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 5015 / 5015
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: CSL Scheduler
  152.  
  153.  
  154. -- part 6 (button)
  155. -- low flags: 00
  156. -- high flags: A004
  157. -- rect: left=425 top=81 right=129 bottom=501
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 5012 / 5012
  160. -- text alignment: 1
  161. -- font id: 0
  162. -- text size: 12
  163. -- style flags: 0
  164. -- line height: 16
  165. -- part name: Report Cards
  166.  
  167.  
  168. -- part 7 (button)
  169. -- low flags: 00
  170. -- high flags: A004
  171. -- rect: left=10 top=136 right=184 bottom=86
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 5002 / 5002
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: CSL Attendance
  180.  
  181.  
  182. -- part 8 (button)
  183. -- low flags: 00
  184. -- high flags: A004
  185. -- rect: left=93 top=136 right=184 bottom=169
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 5008 / 5008
  188. -- text alignment: 1
  189. -- font id: 0
  190. -- text size: 12
  191. -- style flags: 0
  192. -- line height: 16
  193. -- part name: CSL Library
  194.  
  195.  
  196. -- part 9 (button)
  197. -- low flags: 00
  198. -- high flags: A004
  199. -- rect: left=176 top=136 right=184 bottom=252
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 5013 / 5013
  202. -- text alignment: 1
  203. -- font id: 0
  204. -- text size: 12
  205. -- style flags: 0
  206. -- line height: 16
  207. -- part name: Report Manager
  208.  
  209.  
  210. -- part 10 (button)
  211. -- low flags: 00
  212. -- high flags: A004
  213. -- rect: left=259 top=136 right=184 bottom=335
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 5009 / 5009
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: CSL Marks
  222.  
  223.  
  224. -- part 11 (button)
  225. -- low flags: 00
  226. -- high flags: A004
  227. -- rect: left=342 top=136 right=184 bottom=418
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 5004 / 5004
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: Comment Editor
  236.  
  237.  
  238. -- part 12 (button)
  239. -- low flags: 00
  240. -- high flags: A004
  241. -- rect: left=425 top=136 right=184 bottom=501
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 5020 / 5020
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Year End
  250.  
  251.  
  252. -- part 13 (button)
  253. -- low flags: 00
  254. -- high flags: A004
  255. -- rect: left=10 top=191 right=239 bottom=86
  256. -- title width / last selected line: 0
  257. -- icon id / first selected line: 5010 / 5010
  258. -- text alignment: 1
  259. -- font id: 0
  260. -- text size: 12
  261. -- style flags: 0
  262. -- line height: 16
  263. -- part name: Next Year Prep
  264.  
  265.  
  266. -- part 14 (button)
  267. -- low flags: 00
  268. -- high flags: A004
  269. -- rect: left=93 top=191 right=239 bottom=169
  270. -- title width / last selected line: 0
  271. -- icon id / first selected line: 5003 / 5003
  272. -- text alignment: 1
  273. -- font id: 0
  274. -- text size: 12
  275. -- style flags: 0
  276. -- line height: 16
  277. -- part name: CSL Backup
  278.  
  279.  
  280. -- part 15 (button)
  281. -- low flags: 00
  282. -- high flags: A004
  283. -- rect: left=176 top=191 right=239 bottom=252
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 5001 / 5001
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: ASCII Transfer
  292.  
  293.  
  294. -- part 16 (button)
  295. -- low flags: 00
  296. -- high flags: A004
  297. -- rect: left=259 top=191 right=239 bottom=335
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 5014 / 5014
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: CSL Scanning
  306.  
  307.  
  308. -- part 17 (button)
  309. -- low flags: 00
  310. -- high flags: A004
  311. -- rect: left=342 top=191 right=239 bottom=418
  312. -- title width / last selected line: 0
  313. -- icon id / first selected line: 5011 / 5011
  314. -- text alignment: 1
  315. -- font id: 0
  316. -- text size: 12
  317. -- style flags: 0
  318. -- line height: 16
  319. -- part name: Query
  320.  
  321.  
  322. -- part 18 (button)
  323. -- low flags: 80
  324. -- high flags: A004
  325. -- rect: left=425 top=191 right=239 bottom=501
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: 
  334.  
  335.  
  336. -- part 19 (button)
  337. -- low flags: 80
  338. -- high flags: A004
  339. -- rect: left=10 top=246 right=294 bottom=86
  340. -- title width / last selected line: 0
  341. -- icon id / first selected line: 0 / 0
  342. -- text alignment: 1
  343. -- font id: 0
  344. -- text size: 12
  345. -- style flags: 0
  346. -- line height: 16
  347. -- part name: 
  348.  
  349.  
  350. -- part 20 (button)
  351. -- low flags: 80
  352. -- high flags: A004
  353. -- rect: left=93 top=246 right=294 bottom=169
  354. -- title width / last selected line: 0
  355. -- icon id / first selected line: 0 / 0
  356. -- text alignment: 1
  357. -- font id: 0
  358. -- text size: 12
  359. -- style flags: 0
  360. -- line height: 16
  361. -- part name: 
  362.  
  363.  
  364. -- part 21 (button)
  365. -- low flags: 80
  366. -- high flags: A004
  367. -- rect: left=176 top=246 right=294 bottom=252
  368. -- title width / last selected line: 0
  369. -- icon id / first selected line: 0 / 0
  370. -- text alignment: 1
  371. -- font id: 0
  372. -- text size: 12
  373. -- style flags: 0
  374. -- line height: 16
  375. -- part name: 
  376.  
  377.  
  378. -- part 22 (button)
  379. -- low flags: 80
  380. -- high flags: A004
  381. -- rect: left=259 top=246 right=294 bottom=335
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 0 / 0
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: 
  390.  
  391.  
  392. -- part 23 (button)
  393. -- low flags: 80
  394. -- high flags: A004
  395. -- rect: left=342 top=246 right=294 bottom=418
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 1
  399. -- font id: 0
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: 
  404.  
  405.  
  406. -- part 24 (button)
  407. -- low flags: 80
  408. -- high flags: A004
  409. -- rect: left=425 top=246 right=294 bottom=501
  410. -- title width / last selected line: 0
  411. -- icon id / first selected line: 0 / 0
  412. -- text alignment: 1
  413. -- font id: 0
  414. -- text size: 12
  415. -- style flags: 0
  416. -- line height: 16
  417. -- part name: 
  418.  
  419.  
  420. -- part 25 (button)
  421. -- low flags: 00
  422. -- high flags: A002
  423. -- rect: left=0 top=328 right=342 bottom=256
  424. -- title width / last selected line: 0
  425. -- icon id / first selected line: 0 / 0
  426. -- text alignment: 1
  427. -- font id: 3
  428. -- text size: 9
  429. -- style flags: 0
  430. -- line height: 12
  431. -- part name: Home
  432. ----- HyperTalk script -----
  433. on mouseUp
  434.   restoreMenuBar
  435.   visual zoom close
  436.   go home
  437. end mouseUp
  438.  
  439.  
  440.  
  441. -- part 26 (button)
  442. -- low flags: 00
  443. -- high flags: A002
  444. -- rect: left=256 top=328 right=342 bottom=512
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 1
  448. -- font id: 3
  449. -- text size: 9
  450. -- style flags: 0
  451. -- line height: 12
  452. -- part name: Main Screen
  453. ----- HyperTalk script -----
  454. on mouseUp
  455.   restoreMenuBar
  456.   visual zoom close
  457.   go to card "Demo Shell"
  458. end mouseUp
  459.  
  460.